home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_B.d64 / knight rider (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  67 lines
  1. 0 iff=0thenf=1:ifpeek(34872)<>162thenload"kitt",8,1
  2. 10 print"[147]":sys24516
  3. 20 clr:hid=50 :dim a(50),b(50)
  4. 30 w1=54276:w2=54283:w3=54290
  5. 40 t1=54277:t2=54284:t3=54291
  6. 50 s1=54278:s2=54285:s3=54292:u=98:v=96
  7. 60 a1=54273:a2=54272:b1=54280:b2=54279    :c1=54287:c2=54286:vo=54296
  8. 70 fori=a2tovo:pokei,0:next
  9. 80 for i=1 to 49:read a(i),b(i):next
  10. 90 poke vo,15
  11. 100 poke t1,136:poke t2,40:poke t3,136
  12. 110 poke s1,100:poke s2,68 :poke s3,100
  13. 120 poke w1,33:poke w2,33:poke w3,33
  14. 130 data 4,73,4,139,4,208,5,25,5,103,5,185,6,16,6,108,6,206,7,53,7,163,8,23
  15. 140 data 8,147,9,21,9,159,10,60,10,205,11,114,12,32,12,216,13,156,14,107,15,70
  16. 150 data 16,47,17,37,18,42,19,63,20,100,21,154,22,227,24,63,25,107,27,56,28,214
  17. 160 data 30,141,32,94,34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111
  18. 170 data 57,172,61,126,64,188,68,149
  19. 180 read x1,x2,x3:if x1=-1 then 20
  20. 190 if x1=-2 then 210
  21. 200 poke a1,a(x1):poke a2,b(x1)
  22. 210 if x2=-2 then 230
  23. 220 poke b1,a(x2):poke b2,b(x2)
  24. 230 if x3=-2 then 250
  25. 240 poke c1,a(x3):poke c2,b(x3)
  26. 250 fori=1to hid:next
  27. 260 pokeb1,0:pokeb2,0:pokec1,0:pokec2,0
  28. 261 ifker=0then ker=1:sys24416:goto180
  29. 265 ker=0:sys24448:goto180
  30. 280 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
  31. 290 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  32. 300 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
  33. 310 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  34. 320 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
  35. 330 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  36. 340 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,0,-2,27,0,0,26,0,-2,26,0
  37. 350 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  38. 360 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
  39. 370 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  40. 380 data 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
  41. 390 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  42. 400 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
  43. 410 data43,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  44. 420 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  45. 430 data 33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
  46. 440 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  47. 450 data 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
  48. 460 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  49. 470 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
  50. 480 data46,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  51. 490 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  52. 500 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
  53. 510 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
  54. 520 data-2,26,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  55. 530 data38,22,7,-2,22,7,40,25,9
  56. 540 data0,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
  57. 550 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  58. 560 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
  59. 570 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
  60. 580 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
  61. 590 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
  62. 600 data21,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
  63. 610 data28,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
  64. 620 data33,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
  65. 630 data-2,28,0,-2,28,0,40,28,16,-2,28,16,-2,28,4
  66. 640 data 0,0,0,-1,-1,-1
  67.